home *** CD-ROM | disk | FTP | other *** search
/ TPUG - Toronto PET Users Group / TPUG Users Group CD / TPUG Users Group CD.iso / CRS / crs18.d81 / fliconv.prg (.txt) < prev    next >
Commodore BASIC  |  2009-10-10  |  1KB  |  15 lines
  1. 10 POKE55,0:POKE56,16:CLR:POKE53280,0:POKE53281,0
  2. 15 PRINT"[153][147]FLI EDITOR TO FLI GRAPH CONVERTER"
  3. 17 PRINT"BY: GULLIBLE"
  4. 19 PRINT"NAME OF FLI EDITOR FILE TO BE CONVERTED":INPUTFE$
  5. 20 INPUT"DEVICE  8[157][157][157]";ID
  6. 21 PRINT"NAME OF FLI GRAPH FILE TO BE SAVED":INPUTFG$
  7. 22 INPUT"DEVICE  8[157][157][157]";OD
  8. 23 FORX=15104TO15359:POKEX,0:NEXT
  9. 25 PRINT"[144][147]LOAD"CHR$(34)FE$CHR$(34)","ID",1"
  10. 26 PRINT"NEW"
  11. 27 PRINT"POKE43,0:POKE44,59:POKE45,64:POKE46,127"
  12. 28 PRINT"SAVE"CHR$(34)FG$CHR$(34)","OD",1"
  13. 29 PRINT"SYS64738"
  14. 30 PRINT"[153]WORKING.... [144]":FORX=631TO635:POKEX,13:NEXT:POKE198,5:PRINT"";:END
  15.